Datos estadisticos policiales de Costa Rica

Carga de Paquetes de datos

library(dplyr)
library(ggplot2)
library(plotly)
library(sf)
library(DT)
library(readxl)
library(readr)

Lectura de datos

estadisticas_policiales <-
  readxl::read_excel("C:/Users/REBECA/Desktop/Datos estadisticos policiales de Costa Rica/estadsticaspoliciales2022.xls")

Tabla

estadisticas_policiales %>%
  dplyr::select(Delito, Fecha, Victima, Edad, Genero, Provincia, Canton) %>%
  datatable(colnames = c(
    "Delito",
    "Fecha",
    "Víctima",
    "Edad",
    "Género",
    "Provincia",
    "Cantón"
  ),
options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')
))

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

Grafico

# Cantidad de delitos por tipo de delito

ggplot2_estadisticas_policiales <-
estadisticas_policiales %>%
  count(Delito) %>%
  ggplot(aes(x = reorder(Delito, n), y = n)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  ggtitle("Cantidad de delitos por tipo de delito") +
  xlab("Delito") +
  ylab("Cantidad") +
  theme_gray() 
ggplotly(ggplot2_estadisticas_policiales) %>% config(locale = 'es')